10 REM DOWNWARD VERTICAL SCROLLING 20 PRINTCHR$(8)CHR$(142) 30 POKE53281,.:POKE53280,.:PRINT"[147]SCORE 0000 ALIEN HELLSPAWN SHIPS [218][218][218]" 40 POKE646,RND(1)*16:PRINT"";TAB(RND(1)*40);CHR$(46+(RND(.)>.9)*-163) 50 POKE218,PEEK(218)OR128 60 PRINT"[157]";CHR$(148) 70 GETA$:IFA$=""THEN40 80 REM SCROLLING COLOR BARS 90 B$="":FORX=.TO39:B$=B$+CHR$(32):NEXT 100 PRINT"[147]"TAB(11)"COLOR BAR SCROLLING" 110 PRINT""TAB(14)"[164][175][162][185][162][184][184][146][162][184][146][185][175][185][164]" 120 PRINTTAB(10)"[164][185][162][183] [183][184][184][146][185][164]" 130 PRINTTAB(6)"[164][175][162][183] [183][146][162][164]" 140 PRINTTAB(5)"[169] [223]" 150 PRINTTAB(4)"[169] [170]" 160 PRINTTAB(4)"[165] " 170 PRINTTAB(4)" [146][169]" 180 PRINTTAB(4)"[223] [175][162][146][183]" 190 PRINTTAB(5)"[163][183][184][162][146][184][162][146][184][162][185][164] [164][162][146][183][184][183]" 200 PRINTTAB(16)"[223] [146][169]" 210 PRINTTAB(17)" [146][181]" 220 PRINT" [176][176][176][176][146]"SPC(12)" [146][161] [172][172][172][146] [176][176]" 230 PRINT" [176][176][176][176][146] [187][187][187][146] :::[146] [161] [146][165] [172][172][172][146] [176][176][176][176][146] [176][176]" 240 PRINT" [176][176][176][176][146] [187][187][187][146] :::[146] [170] [146][161] [176][176][146] [172][172][172][146] [176][176][176][176][146] [176][176]" 250 PRINT" [176][176][176][176][146] [187][187][187][146] :::[146]  [146][165] [176][176][146] [172][172][172][146] [176][176][176][176][146] [176][176]" 260 PRINT"[162][176][176][176][176][146][162][187][187][187][146][162]:::[146][185][162][164][169] [146][164][176][176][184][172][172][172][146][185][176][176][176][176][163][176][176][146][185]"; 270 PRINT" FUTURE'S SO BRIGHT I GOTTA WEAR SHADES " 280 PRINTTAB(11)"PRESS SPACE TO EXIT":POKE198,. 290 REM POINT SCREEN EDITOR TO HARMLESS 300 REM RAM LOCATION (192*256=49152) 310 POKE648,192:PRINT 320 PRINTMID$("[150][129][158]",(RND(1)*5)+1,1):PRINTB$ 330 GETA$:IFA$<>" "THEN320 340 POKE648,4:PRINT 350 REM MOVE SCREEN LINES 360 PRINT"[147]"TAB(10)"MOVING SCREEN LINES" 370 FORX=.TO20:POKE646,RND(1)*15+1:FORJ=.TO4:PRINTSPC(3)""X;:NEXTJ:PRINT:NEXTX 380 PRINTSPC(6)"[146]PRESS M TO MOVE LINE,X TO EXIT" 390 GETA$:IFA$<>"M"THEN430 400 IFA$="M"THENT=(RND(1)*21)+1:F=(RND(1)*21)+1 410 POKE781,T:SYS59888:POKE172,PEEK(60656+F):POKE780,PEEK(216+F) 420 POKE783,.:SYS59848:PRINT"" 430 IFA$<>"X"THEN390 440 POKE53248+21,1:POKE2040,13:POKE53248,170:POKE53249,180:POKE53248+16,. 450 POKE53248+39,1 460 PRINT"[147]TYPE IN ANY CHARACTER :"; 470 GETA$:IFA$=""ORA$<"A"ORA$>"Z"THEN470 480 PRINTA$ 490 PRINT"I'M CREATING A STRING 63 CHARACTERS LONGTO USE AS A SPRITE SHAPE." 500 S$="":FORX=.TO63:S$=S$+A$:NEXT:PRINT"S$="CHR$(34)S$CHR$(34):PRINT 510 PRINT"NOW WE PRINT THIS STRING TO THE SPRITE'S"; 520 PRINT"BLOCK AT 828,SPRITE BLOCK 13":PRINT 530 PRINT"POKE648,3:PRINTCHR$(19)CHR$(17)SPC(20);S$:POKE648,4":PRINT 540 PRINT"PRESS KEY FOR ANOTHER CHARACTER,CTRL-X TO EXIT SHAPE DEMO" 550 GOSUB580 560 POKE198,.:WAIT198,1:GETA$:IFA$=""THENPOKE53248+21,.:GOTO600 570 GOTO460 580 POKE648,3:PRINTCHR$(19)CHR$(17)SPC(20);S$:POKE648,4:RETURN 590 REM HORIZONTAL ROUGH SCROLLING 600 PRINT"[147]"TAB(5)"SIMPLE HORIZONTAL SCROLLING" 610 PRINTTAB(6)"CURSOR KEYS LEFT <-> RIGHT" 620 PRINTTAB(7)"X TO EXIT SCROLLING DEMO" 630 POKE214,21:PRINT:PRINTTAB(15)"STAND BY!":FORX=.TO39:PRINT"[184]";:NEXT:PRINT"[151]"; 640 REM SCROLL DATA IN FOUR STRINGS 650 DIM L$(39),M$(39,3),S$(3) 660 S$(.)=" [176][174] [176][174] [176][174] " 670 S$(1)=" [176][178][174] [213][201] [171][179] [176][174] [171][179] [176][174] [171][179] " 680 S$(2)=" [171][219][179] [171][179] [171][179] [213][201] [171][179] [171][179][176][174] [176][189][194][176][174] [171][179] " 690 S$(3)="[176][174][171][219][219][178][178][174][171][179][176][174][171][219][174][176][174][171][179][176][174][171][179][176][189][173][189][173][195][195][189] [173][177][177][178][195][177][177][195]" 700 FORJ=.TO3:FORX=.TO39:M$(X,J)=RIGHT$(S$(J),39-X)+LEFT$(S$(J),X):NEXTX,J 710 FORX=.TO39:FORJ=.TO3:L$(X)=L$(X)+M$(X,J)+" ":NEXTJ,X 720 X=.:POKE198,. 730 POKE214,18:PRINT 740 PRINTL$(X);:FORJ=.TO50:NEXT 750 GETA$:IFA$=""THEN750 760 IFA$="[157]"THENX=X+1+(X=39)*40 770 IFA$=""THENX=X-1+(X=.)*-40 780 IFA$="X"THEN810 790 GOTO730 800 REM SCROLLING DIAGONAL LINES 810 POKE53281,5:POKE53280,13:PRINT"[147]EVERYBODY PLAY FOOTBALL!" 820 PRINT"PRESS SPACE TO RUN A TOUCHDOWN!":POKE198,.:WAIT198,1 830 FORX=.TO500:PRINT"[205]";:NEXT 840 REM CLEAR SCREEN LINES 850 POKE53281,.:POKE53280,. 860 PRINT"[147]"TAB(10)"CLEARING SCREEN LINES" 870 FORX=.TO20:POKE646,RND(1)*15+1:PRINTB$;:NEXT 880 PRINTSPC(5)"[146]PRESS C TO CLEAR LINE,X TO EXIT" 890 GETA$:IFA$="C"THENPOKE781,(RND(1)*21)+1:POKE783,.:SYS59903 900 IFA$<>"X"THEN890 910 REM CURTAIN EFFECT USING DELETE CHR$ 920 POKE53281,.:POKE53280,6:PRINT"" 930 PRINT"[147]":FORI=.TO22:FORX=.TO37:PRINT"[194]";:NEXT:PRINT:NEXT 940 PRINT"PRESS SHIFT TO OPEN CURTAIN" 950 POKE214,10:PRINT:PRINTTAB(10)"CURTAIN OPENING":WAIT653,1 960 FORI=.TO39:PRINT"";:FORJ=.TO23:PRINT""CHR$(20):NEXTJ,I 970 REM RANDOM MAPPING 980 POKE53281,6:POKE53280,.:PRINT"[147]"CHR$(14)TAB(14)"[155][205]AP [195]REATOR" 990 PRINTTAB(7)"[154][208]RESS [193] [203]EY [212]O [195]REATE [205]AP":POKE198,.:WAIT198,1:PRINT"[147]" 1000 REM EXPERIMENT WITH DIFFERENT SEED 1010 REM VALUES FOR THE RANDOM FUNCTION 1020 REM TO CHANGE MAP LAYOUT 1030 X=RND(-2.1) 1040 PRINT"[149]";:A$="[166]":POKE214,10:PRINT:PRINTTAB(20);:FORX=.TO999:GOSUB1100:NEXT 1050 PRINT"";:A$="[255]":FORX=.TO100:GOSUB1100:NEXT 1060 PRINT"[153]";:A$="[169]":FORX=.TO300:GOSUB1100:NEXT 1070 PRINT"[144]";:A$="[223]":FORX=.TO300:GOSUB1100:NEXT 1080 POKE214,22:PRINT:PRINTTAB(12)"[204]AND OF [193]DVENTURE";:GOTO1130 1090 REM DRAW TERRAIN SUBROUTINE 1100 PRINTA$;MID$("[145][157]",RND(.5)*4+1,1);"[157]"; 1110 IFPEEK(214)>22THENPRINT"[145]"; 1120 RETURN 1130 POKE198,.:WAIT198,1:PRINTCHR$(9)